home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00099_Soda buttons behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  884 b   |  38 lines
  1. property pSpr, pLiquid, pOrigMember, pRollMember, pDownMember, pTextName
  2. global gSodaGun, gSodaText
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   pOrigMember = pSpr.member
  7.   pRollMember = nextMember(pOrigMember, 1)
  8.   pDownMember = nextMember(pOrigMember, 2)
  9.   pTextName = nextMember(pOrigMember, -1)
  10. end
  11.  
  12. on mouseDown me
  13.   pSpr.member = pDownMember
  14.   updateStage()
  15.   if inMixingMode() then
  16.     returnToBar()
  17.     sendSprite(gSodaGun, #mChangeSoda, pLiquid)
  18.   else
  19.     sendSprite(gSodaGun, #mChangeSoda, pLiquid)
  20.     play done
  21.   end if
  22. end
  23.  
  24. on mouseEnter me
  25.   pSpr.member = pRollMember
  26.   sendSprite(gSodaText, #mChangeText, pTextName)
  27. end
  28.  
  29. on mouseLeave me
  30.   pSpr.member = pOrigMember
  31.   sendSprite(gSodaText, #mResetText)
  32. end
  33.  
  34. on getPropertyDescriptionList me
  35.   global gSodaTypes
  36.   return [#pLiquid: [#comment: "Liquid", #range: gSodaTypes, #format: #symbol, #default: #cola]]
  37. end
  38.